# Hello World
print "$0\n";

$string = "test";

print "Hello world\n";
print "Hello $string\n";

@my_arr = ( "hello", "there" );

%my_hash = { hello => there };

print "@my_arr\n";

sub print_array {
	print "Entering print_array subroutine";
	for $arr_elem (@my_arr) {
		print $arr_elem;
	}
}

&print_array;

print "$_, $/, $$\n";
